<%
'******************************************************************************************
'#          Openasp CMS software opensource                                               #
'******************************************************************************************
'#      Copyright (C) Luca Becchetti, Broken Ice Interactive                              #
'#                                                                                        #
'# Questo software è gratuito, è possibile ridistribuire e modificare il prodotto         #
'# rispettando i termini della GNU General Public License pubblicata dalla Free           #
'# Software Foundation, si fa riferimento alla versione attuale e a tutte le versioni.    #
'# future                                                                                 #
'#                                                                                        #
'# Il software viene distribuito con lo scopo di essere utile e di aiutare nella          #
'# realizzazione di un sito web, non ci assiumiamo nessuna responsabilità per             #
'# eventuali malfunzionamenti o problemi provenienti dal programma.                       #
'#                                                                                        #
'# E' assolutamente vietato eliminare ogni riferimento di copyright sia all'interno del   #
'# del codice sorgente sia quelli visivi nel progetto.                                    #
'#                                                                                        #
'# Una copia della licenza GNU GPL è rilasciata nel pacchetto di istallazione del         #
'# software.                                                                              #
'#                                                                                        #
'# Per supporto visita il nostro sito ufficiale                                           #
'# http://www.openasp.it                                                                  #
'#                                                                                        #
'#                                                                                        #
'******************************************************************************************
'
i = split(request.ServerVariables("HTTP_URL"), "/")
if strComp("flickrgallery.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
'--------------------------------------------------------------------------------------------
Select case request.QueryString("pass")
	CASE 0, "": 'LISTA BLOCCHI
%>
<script language="javascript" type="text/javascript">
//Funzione per la gestione dei blocchi
$j(document).ready(function(){

	//Variabile che accerta la disponibilità ad eseguire operazioni
	var disp = true;

	/**
	* FUNZIONE DI DELETE PER I BLOCCHI
	**/
	//Inserisco funzioni di eliminazione nelle singole righe
    $j(".delete").click(function(){
	   if(disp){
		   //Chiedo conferma all'utente
		   if (!confirm('<%=traducisys("ling_81")%>')){
			return false;
		   }else{

			$j.blockUI( { border: "0px"} );
			$j.blockUI( '<img src="themes/SHARE/indicator.gif" />' );
			//Setto il motore ajax impegnato
			disp = false;
			//Salvo la riga che ha chiamato l'eliminazione
			var a = $j(this).parents("li");
			//Elimino la riga interessata
			$j.post("admin.asp?modulo=ajax&proc=flickrgallery/delete",{id: a.attr("id")},function(txt){
			   
			   $j.unblockUI(); 
			   
			   //Nascondo la riga
			   if(txt == "ok")
				   a.hide("slow");
			   else
				   alert('errore nell\'eliminazione!');
				
  
			   //Rilascio il motore ajax
			   disp = true;
			});
		   }
	   }
	 });
	 
	/**
	* FUNZIONE PER SALVARE LE MODIFICHE DEI BLOCCHI
	**/
	//Inserisco funzioni di eliminazione nelle singole righe
    $j(".save").click(function(){
		
		//Controllo che il motore ajax non stia effettaundo operazioni	
		if(disp){
			//Salvo la riga che ha chiamato l'eliminazione
			var id = $j(this).parents("li").attr("id").replace("id", "");

			$j.blockUI( { border: "0px"} );
			$j.blockUI( '<img src="themes/SHARE/indicator.gif" />' );
			//Setto il motore ajax impegnato
			disp = false;
			//Elimino la riga interessata
			$j.post("admin.asp?modulo=ajax&proc=flickrgallery/update",{
				id: id, 
				titolo: $j("input[@name=set_"+id+"]").val().replace("à", "&agrave;").replace("é", "&egrave;").replace("ù", "&ugrave;").replace("ì", "&igrave;").replace("ò", "&ograve;"),
				maxx: $j("input[@name=max_"+id+"]").val().replace("à", "&agrave;").replace("é", "&egrave;").replace("ù", "&ugrave;").replace("ì", "&igrave;").replace("ò", "&ograve;")				
			},function(txt){
			   //Nascondo la riga
			   if(txt != "ok")
				   alert('errore nel salvataggio!');

			   //Rilascio il motore ajax
			   disp = true;
			   $j.unblockUI();
			});
		}
		
	 });

});
</script>
<div id="position">
	&raquo; <a href="admin.asp" class="testo">Control Center</a> &raquo; <%=traduci("ling_gall_1")%>
</div>
<div id="page">
	<h2><b><%=traduci("ling_gall_1")%></b></h2>
<%
				strSQL = "SELECT * FROM tb_flickr_set"
				Set objRS = addConn.Execute(strSQL)
				If not objRS.EOF then
					response.Write "<ul id=""pagelist"">"
					Do while not objRS.EOF
						With response
							.Write "<li id=""id"&objRS("id")&""">" &vbNewLine
							.Write "<input type=""text"" size=""50"" class=""inputclass"" name=""set_"&objRS("id")&""" value=""" & objRS("id_set") & """ />"
							.Write " " & traduci("ling_gall_2") & " " 
							.Write "<input type=""text"" size=""20"" class=""inputclass"" name=""max_"&objRS("id")&""" value=""" & objRS("maxperpage") & """ />"
							.Write "<img class=""delete"" alt="""" src=""themes/SHARE/del.png"" border=""0"" />&nbsp;"
							.Write "<img class=""save"" alt="""" src=""themes/SHARE/check.png"" border=""0"" />"							
							.Write "</li>"&vbNewLine
						End with
						objRS.MoveNext
					loop
					response.Write "</ul>"
				else
					With response
						.Write "<p class=""testo"">"&vbNewLine
						.Write traducisys("ling_72")&vbNewLine
						.Write "</p>"&vbNewLine
					End with
				end if
				With response
					.Write "<div id=""navibar"">"
					.Write "<a title="""&traducisys("ling_100")&""" href=""admin.asp?modulo=flickrgallery&amp;pass=2"">"
					.Write "<img alt="""&traducisys("ling_100")&""" src=""themes/SHARE/add.png"" border=""0"" />"
					.Write "</a> "&traducisys("ling_100")
					.Write "</div>"	
				End With
	CASE 2:
		strSQL = "INSERT INTO tb_flickr_set(id_set) VALUES('0')"
		addConn.Execute(strSQL)
		call autoReturn("admin.asp?modulo=flickrgallery", 2)			
End select
%>  
</div>